﻿Module Module1
  Sub Main()

    Dim nl As String = Environment.NewLine
    Dim stringa As String = "stringhe e " & _
        "sottostringhe"
    Console.WriteLine("Substring(11) = " & _
        stringa.Substring(11) & nl & _
        "Substring(12,4) = " & _
        stringa.Substring(12, 4))
    Console.ReadLine()

  End Sub
End Module
